Set the working directory to H:/Projects/11000/11187/TS/Task 3.
Load the Scott_County_CR78_trips_78.csv file.
The dimensions of the CR_78 dataset are 2063 rows and 20 columns. The dimensions of the CR_42 dataset are 994 rows and 20 columns.
Two combinations of links were used for analysis. The segments were loaded from the File Geodatabase on the H Drive project folder, H:/Projects/11000/11187/TS/Task 3/Scott County.gdb.
The segment for CR_42 included 18 links. The segment for CR_42 included 20 links.
CR_78 and CR_42 Analysis Links
The data was collected between 2015-08-31 and 2015-11-30.
g <- tripflag_summary_42 %>%
mutate(in_model = Total_Dist<40)%>%
ggplot(aes(x=in_model))+
geom_bar(stat = 'count')+
labs(title='Trips less than 40 miles',x='',y='Total Count')+
scale_y_continuous(breaks = seq(0,900,50))+
theme(plot.title = element_text(hjust = 0.5))
ggplotly(g)
gg <- ggplot(tripflag_summary_42[tripflag_summary_42$Total_Dist<40,])+
geom_histogram(aes(x=Total_Dist),color='black',fill='white',binwidth = 2)+
labs(title="Total Trip Distance histogram plot",
x="Total Distance (miles)",y = "Count")+
scale_y_continuous(breaks = seq(0,1500,20))
ggplotly(gg)
Start Locations:
End Locations:
The data was collected between 2015-08-31 and 2015-11-30.
b <- tripflag_summary_78 %>%
mutate(in_model = Total_Dist<40)%>%
ggplot(aes(x=in_model))+
geom_bar(stat = 'count')+
labs(title='Trips less than 40 miles',x='',y='Total Count')+
scale_y_continuous(breaks = seq(0,1500,50))+
theme(plot.title = element_text(hjust = 0.5))
ggplotly(b)
gg <- ggplot(tripflag_summary_78[tripflag_summary_78$Total_Dist<40,])+
geom_histogram(aes(x=Total_Dist),color='black',fill='white',binwidth = 2)+
labs(title="Total Trip Distance histogram plot",
x="Total Distance (miles)",
y = "Count")+
scale_y_continuous(breaks = seq(0,400,20))
ggplotly(gg)
Start Locations:
End Locations: